perm filename PLAY.LSP[S81,JMC] blob sn#577230 filedate 1981-04-06 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(setq base (setq ibase 10.))
C00003 ENDMK
CāŠ—;
(setq base (setq ibase 10.))

(defun maxandmin (u)
       (cond ((null (cdr u)) (cons (car u) (car u)))
	     (t ((lambda (z)
			 (cond ((greaterp (car u) (car z)) (cons (car u) (cdr z)))
			       ((lessp (car u) (cdr z)) (cons (car z) (car u)))
			       (t z)))
		 (maxandmin (cdr u))))))